Imports Microsoft.VisualBasic

Public Class baseWebPage
    Inherits System.Web.UI.Page

    Protected Sub SetPreviousPage()
        Session("dotnetpm_PreviousPage") = Request.Url.AbsolutePath
    End Sub

    Protected Sub SetPreviousPage(ByVal queryString As String)
        Session("dotnetpm_PreviousPage") = Request.Url.AbsolutePath.ToString & "?" & queryString
    End Sub

    Protected Function GetPreviousPage() As String
        If Session("dotnetpm_PreviousPage") Is Nothing Then
            Return Request.ApplicationPath
        Else
            Return Session("dotnetpm_PreviousPage").ToString
        End If
    End Function

End Class
